;; EX-29.scm - Police state (JMcC)

(let ((n 4))				; number of sirens
  (CombL.ar 
   (Add (Mix.fill 
	 n (lambda ()
	     (Pan2.ar (SinOsc.ar (SinOsc.kr (random 0.02 0.1)
					    (random two-pi)
					    (random 600)
					    (random 700 1300))
				 0
				 (LFNoise2.ar (random 80 120) 0.1))
		      (random -1 1))))
	(LFNoise2.ar (LFNoise2.kr '(0.4 0.4) 90 620) 
		     (LFNoise2.kr '(0.3 0.3) 0.15 0.18)))
   0.3 0.3 3))
